﻿Public Class clsGtProcedureOperated
    Public Function getGtProcedureOperatedList(b_gt_sys_id As String) As DataTable
        Dim szSql As String = ""
        szSql &= " select * from sf.b_gt_procedure_operated "
        szSql &= "where b_gt_sys_id = ? order by procedure_no"
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, b_gt_sys_id)
        If IsNothing(dt) Then
            getGtProcedureOperatedList = New DataTable
        Else
            getGtProcedureOperatedList = dt
        End If
    End Function

End Class
